home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / sauter.zip / B-CMTCSC.MF < prev    next >
Text File  |  1990-09-16  |  3KB  |  89 lines
  1. % Computer Modern Typewriter Caps and Small Caps
  2. if unknown cmbase: input cmbase fi
  3.  
  4. font_identifier:="CMTCSC"; font_size design_size * pt#;
  5.  
  6. % first come parameters used to set the uppercase letters
  7. % (including some for lowercase that aren't actually used)
  8.  
  9. input c-cmtt;
  10.  
  11. % now come replacements used to set the lowercase caps
  12.  
  13. lower.u#:=                 % unit width
  14.    u#;
  15.  
  16. lower.width_adj#:=         % width adjustment for certain characters
  17.    width_adj#;
  18.  
  19. lower.cap_serif_fit#:=     % extra sidebar near uppercase serifs
  20.    cap_serif_fit#;
  21.  
  22. lower.letter_fit#:=        % extra space added to all sidebars
  23.   ((letter_fit#*360pt#) + (design_size * 3))/360pt#;
  24.  
  25. lower.body_height#:=       % height of tallest characters
  26.   (body_height#*36pt#*19)/(25*36pt#);
  27.  
  28. lower.cap_height#:=        % height of caps
  29.   (cap_height#*36pt#*17)/(22*36pt#);
  30.  
  31. lower.x_height#:=          % height of lowercase without ascenders
  32.   (x_height#*36pt#*12)/(15.5*36pt#);
  33.  
  34. lower.bar_height#:=        % height of crossbar in lowercase e
  35.   ((bar_height#*36pt#*62)+0.002)/(79*36pt#);
  36.  
  37. lower.comma_depth#:=       % depth of comma below baseline
  38.   (comma_depth#*360pt#*38)/(50*360pt#);
  39.  
  40. lower.stem#:=              % lowercase stem breadth
  41.    stem#;
  42.  
  43. lower.flare#:=             % diameter of bulbs or breadth of terminals
  44.   (flare#*360pt#*30)/(32*360pt#);
  45.  
  46. lower.cap_hair#:=          % uppercase hairline breadth
  47.    cap_hair#;
  48.  
  49. lower.cap_stem#:=          % uppercase stem breadth
  50.    cap_stem#;
  51.  
  52. lower.cap_curve#:=         % uppercase curve breadth
  53.    cap_curve#;
  54.  
  55. lower.cap_ess#:=           % breadth in middle of uppercase s
  56.    cap_ess#;
  57.  
  58. lower.cap_jut#:=           % protrusion of uppercase serifs
  59.   ((cap_jut#*360pt#*26)+0.01)/(34*360pt#);
  60.  
  61. lower.beak_jut#:=          % horizontal protrusion of beak serifs
  62.     beak_jut#;
  63.  
  64. lower.beak#:=              % vertical protrusion of beak serifs
  65.   ((beak#*360pt#*26)+0.01)/(34*360pt#);
  66.  
  67. lower.slab#:=              % serif and arm thickness
  68.    slab#;
  69.  
  70. lower.cap_bar#:=           % uppercase bar thickness
  71.    cap_bar#;
  72.  
  73. lower.cap_band#:=          % uppercase thickness above/below lobes
  74.    cap_band#;
  75.  
  76. lower.cap_notch_cut#:=     % max breadth above/below uppercase notches
  77.   (cap_notch_cut#*360pt#*24)/(25*360pt#);
  78.  
  79. lower.o#:=                 % amount of overshoot for curves
  80.   ((o#*360pt#*3)-0.0018)/(4*360pt#);
  81.  
  82. lower.apex_o#:=            % amount of overshoot for diagonal junctions
  83.   (apex_o#*360pt#*2)/(3*360pt#);
  84.  
  85. lower.fudge:=              % factor applied to weights of heavy characters
  86.   ((fudge*10*85)+0.001)/(81*10);
  87.  
  88. generate csc               % switch to the driver file
  89.